home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / url95.dir / 00020_Script_20 < prev    next >
Text File  |  1996-10-10  |  444b  |  17 lines
  1. on enterFrame
  2.   global TheWeb
  3.   
  4.   --
  5.   -- Use this handler when the user has installed
  6.   -- AOL
  7.   --
  8.   if objectP(TheWeb) then
  9.     set theUser to the text of member "UserName"
  10.     set thePassword to the text of member "Password"
  11.     set WebError = TheWeb(mOpenKeyword,"hminet",theUser,thePassword)
  12.     if WebError <> 0 then
  13.       set the text of member "ErrorReport" to TheWeb(mGetWebError,WebError)
  14.     end if
  15.   end if
  16. end
  17. end